# LaTeX2HTML 2022 (Released January 1, 2022)
# Associate images original text with physical files.
$key = q//;
$cached_env_img{$key} = q|<IMG
 STYLE="" SRC="|."$dir".q|img14.png"
 ALT="\begin{figure}{\noindent\rule{\textwidth}{.01in}}
\begin{evaltrace}
;{\it t...
...o 3
+_\end{evaltrace}\par\par
{\noindent\rule{\textwidth}{.01in}}
\end{figure}">|; 
$key = q/{center}vbox{input{..slashdocslashdocbody}}{center};LFS=12;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img33.png"
 ALT="\begin{center}\vbox{\input{../doc/docbody}
}\end{center}">|; 
$key = q/{code}(+23){et-->}5{code};LFS=12;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img3.png"
 ALT="\begin{code}
(+ 2 3) {\et &ndash;&gt;} 5
\end{code}">|; 
$key = q/{code}(defmacrosimple-incf(var)(printa)(list'setqvar(list'+var1)))strut(setfa'foo)strut(defuntest(a)(simple-incfa)){code};LFS=12;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img26.png"
 ALT="\begin{code}
(defmacro simple-incf (var)
(print a)
(list 'setq var (list '+ var 1)))
\strut
(setf a 'foo)
\strut
(defun test (a)
(simple-incf a))
\end{code}">|; 
$key = q/{code}(defunaverage(xy)(let((sum(+xy)))(listxy'average(slashsum2)))){code};LFS=12;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img10.png"
 ALT="\begin{code}
(defun average (x y)
(let ((sum (+ x y)))
(list x y 'average (/ sum 2))))
\end{code}">|; 
$key = q/{code}(defunbar(y)y)strut(defunbaz(z)z)strut(defunfoo1(x)(bar(bazx)))strut(defunfoo2(x)(bazx)(barx)){code};LFS=12;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img30.png"
 ALT="\begin{code}
(defun bar (y) y)
\strut
(defun baz (z) z)
\strut
(defun foo1 (x)
(bar (baz x)))
\strut
(defun foo2 (x)
(baz x)
(bar x))
\end{code}">|; 
$key = q/{code}(defundouble(n)(*n2)){code};LFS=12;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img4.png"
 ALT="\begin{code}
(defun double (n)
(* n 2))
\end{code}">|; 
$key = q/{code}(defungcd(xy)(if(=xy)x(let((x(if(<xy)xy))(y(if(<xy)yx)))(gcdx(-yx))))){code};LFS=12;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img15.png"
 ALT="\begin{code}
(defun gcd (x y)
(if (= x y)
(let ((x (if (&lt; x y) x y))
(y (if (&lt; x y) y x)))
(gcd x (- y x)))))
\end{code}">|; 
$key = q/{code}(defunquintuple(n)(+(double(doublen))n)){code};LFS=12;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img6.png"
 ALT="\begin{code}
(defun quintuple (n)
(+ (double (double n)) n))
\end{code}">|; 
$key = q/{code}(defunshifter(konst)#'(lambda(x)(-xkonst))){code};LFS=12;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img23.png"
 ALT="\begin{code}
(defun shifter (konst)
\char93 '(lambda (x) (- x konst)))
\end{code}">|; 
$key = q/{code}(defunzero-center(data)(mapcar(shifter(averagedata))data)){code};LFS=12;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img24.png"
 ALT="\begin{code}
(defun zero-center (data)
(mapcar (shifter (average data)) data))
\end{code}">|; 
$key = q/{code}(defvar*n*1000)strut(defunparent(*n*)(child(+*n*2)))strut(defunchild(p)(list*n*p)){code};LFS=12;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img28.png"
 ALT="\begin{code}
(defvar *n* 1000)
\strut
(defun parent (*n*)
(child (+ *n* 2)))
\strut
(defun child (p)
(list *n* p))
\end{code}">|; 
$key = q/{code}(setfcrude-pi3.14)strut(defuncircumference(r)(*2rcrude-pi)){code};LFS=12;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img8.png"
 ALT="\begin{code}
(setf crude-pi 3.14)
\strut
(defun circumference (r)
(* 2 r crude-pi))
\end{code}">|; 
$key = q/{code}(setfn1000)strut(defunparent(n)(child(+n2)))strut(defunchild(p)(listnp)){code};LFS=12;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img12.png"
 ALT="\begin{code}
(setf n 1000)
\strut
(defun parent (n)
(child (+ n 2)))
\strut
(defun child (p)
(list n p))
\end{code}">|; 
$key = q/{evaltrace}+-->;(++23)|+_->;5{evaltrace};LFS=12;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img2.png"
 ALT="\begin{evaltrace}
+&ndash;&gt; ;(++ 2 3)
\vert
+_-&gt; ;5
\end{evaltrace}">|;